home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / inicon.exe / INICONS1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-25  |  5.3 KB  |  183 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "IniCon Sample"
  7.    ClientHeight    =   1815
  8.    ClientLeft      =   1275
  9.    ClientTop       =   2160
  10.    ClientWidth     =   5055
  11.    ControlBox      =   0   'False
  12.    BeginProperty Font 
  13.       name            =   "MS Sans Serif"
  14.       charset         =   1
  15.       weight          =   700
  16.       size            =   8.25
  17.       underline       =   0   'False
  18.       italic          =   0   'False
  19.       strikethrough   =   0   'False
  20.    EndProperty
  21.    ForeColor       =   &H80000008&
  22.    Height          =   2220
  23.    Left            =   1215
  24.    LinkTopic       =   "Form1"
  25.    MaxButton       =   0   'False
  26.    MinButton       =   0   'False
  27.    ScaleHeight     =   1815
  28.    ScaleWidth      =   5055
  29.    Top             =   1815
  30.    Width           =   5175
  31.    Begin VB.CommandButton Command3 
  32.       Appearance      =   0  'Flat
  33.       BackColor       =   &H80000005&
  34.       Caption         =   "DeleteParm"
  35.       Height          =   375
  36.       Left            =   3360
  37.       TabIndex        =   10
  38.       Top             =   1200
  39.       Width           =   1455
  40.    End
  41.    Begin VB.CommandButton Command2 
  42.       Appearance      =   0  'Flat
  43.       BackColor       =   &H80000005&
  44.       Caption         =   "DeleteApp"
  45.       Height          =   375
  46.       Left            =   3360
  47.       TabIndex        =   9
  48.       Top             =   720
  49.       Width           =   1455
  50.    End
  51.    Begin VB.CommandButton Command1 
  52.       Appearance      =   0  'Flat
  53.       BackColor       =   &H80000005&
  54.       Caption         =   "Exit"
  55.       Height          =   375
  56.       Left            =   3360
  57.       TabIndex        =   8
  58.       Top             =   240
  59.       Width           =   1455
  60.    End
  61.    Begin VB.TextBox Text4 
  62.       Appearance      =   0  'Flat
  63.       Height          =   285
  64.       Left            =   1320
  65.       TabIndex        =   6
  66.       Top             =   1320
  67.       Width           =   1695
  68.    End
  69.    Begin VB.TextBox Text3 
  70.       Appearance      =   0  'Flat
  71.       Height          =   285
  72.       Left            =   1320
  73.       TabIndex        =   4
  74.       Top             =   960
  75.       Width           =   1695
  76.    End
  77.    Begin VB.TextBox Text2 
  78.       Appearance      =   0  'Flat
  79.       Height          =   285
  80.       Left            =   1320
  81.       TabIndex        =   2
  82.       Top             =   600
  83.       Width           =   1695
  84.    End
  85.    Begin VB.TextBox Text1 
  86.       Appearance      =   0  'Flat
  87.       Height          =   285
  88.       Left            =   1320
  89.       TabIndex        =   0
  90.       Top             =   240
  91.       Width           =   1695
  92.    End
  93.    Begin IniconLib.Init Init1 
  94.       Left            =   0
  95.       Top             =   1320
  96.       _version        =   196611
  97.       _extentx        =   847
  98.       _extenty        =   847
  99.       _stockprops     =   0
  100.       application     =   ""
  101.       parameter       =   ""
  102.       value           =   ""
  103.       filename        =   ""
  104.    End
  105.    Begin VB.Label Label4 
  106.       Alignment       =   1  'Right Justify
  107.       Appearance      =   0  'Flat
  108.       BackColor       =   &H80000005&
  109.       Caption         =   "Value:"
  110.       ForeColor       =   &H80000008&
  111.       Height          =   255
  112.       Left            =   240
  113.       TabIndex        =   7
  114.       Top             =   1365
  115.       Width           =   975
  116.    End
  117.    Begin VB.Label Label3 
  118.       Alignment       =   1  'Right Justify
  119.       Appearance      =   0  'Flat
  120.       BackColor       =   &H80000005&
  121.       Caption         =   "Parameter:"
  122.       ForeColor       =   &H80000008&
  123.       Height          =   255
  124.       Left            =   240
  125.       TabIndex        =   5
  126.       Top             =   1005
  127.       Width           =   975
  128.    End
  129.    Begin VB.Label Label2 
  130.       Alignment       =   1  'Right Justify
  131.       Appearance      =   0  'Flat
  132.       BackColor       =   &H80000005&
  133.       Caption         =   "Application:"
  134.       ForeColor       =   &H80000008&
  135.       Height          =   255
  136.       Left            =   120
  137.       TabIndex        =   3
  138.       Top             =   645
  139.       Width           =   1095
  140.    End
  141.    Begin VB.Label Label1 
  142.       Alignment       =   1  'Right Justify
  143.       Appearance      =   0  'Flat
  144.       BackColor       =   &H80000005&
  145.       Caption         =   "Filename:"
  146.       ForeColor       =   &H80000008&
  147.       Height          =   255
  148.       Left            =   240
  149.       TabIndex        =   1
  150.       Top             =   285
  151.       Width           =   975
  152.    End
  153. Attribute VB_Name = "Form1"
  154. Attribute VB_Creatable = False
  155. Attribute VB_Exposed = False
  156. Private Sub Command1_Click()
  157.     End
  158. End Sub
  159. Private Sub Command2_Click()
  160.     Text3.Text = ""
  161.     Text4.Text = ""
  162.     Init1.DeleteApp = True
  163. End Sub
  164. Private Sub Command3_Click()
  165.     Text4.Text = ""
  166.     Init1.DeleteParm = True
  167. End Sub
  168. Private Sub Text1_Change()
  169.     Init1.filename = Text1.Text
  170.     Text4.Text = Init1.Value
  171. End Sub
  172. Private Sub Text2_Change()
  173.     Init1.Application = Text2.Text
  174.     Text4.Text = Init1.Value
  175. End Sub
  176. Private Sub Text3_Change()
  177.     Init1.Parameter = Text3.Text
  178.     Text4.Text = Init1.Value
  179. End Sub
  180. Private Sub Text4_Change()
  181.     Init1.Value = Text4.Text
  182. End Sub
  183.